﻿Imports System.Xml
Imports System.Data.SqlClient
Imports System.Text


Partial Class rss
    Inherits System.Web.UI.Page

    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\Prototype.accdb;Persist Security Info=True").ConnectionString)
        Dim cmd As New SqlCommand("SELECT * FROM Artists", conn)

        conn.Open()



        Response.Clear()
        Response.ContentType = "text/xml"

        Dim objX As New XmlTextWriter(Response.OutputStream, Encoding.UTF8)
        objX.WriteStartDocument()

        objX.WriteStartElement("rss")
        objX.WriteAttributeString("version", "2.0")
        objX.WriteStartElement("channel")

        objX.WriteElementString("title", "Simple CMS")
        objX.WriteElementString("link", "http://www.YourSiteName.com/rss.aspx")
        objX.WriteElementString("description", "Articles from SimpleCMS.")
        objX.WriteElementString("copyright", "(c) 2012, 3dtalk.com. All rights reserved.")
        objX.WriteElementString("ttl", "5")






    End Sub

End Class